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ABSTRACT: 


1 
1 
' 
1 
' 
! 
t 
AUTHOR: Tim Halvorsen, Feb 1980 
‘ 
4 
7 
' 
' 


Commonly used definitions for VMS modules written in BLISS 


Version: *v04-000' 


PASE SESSSIEL ITEC ITT TTT TT TTT TTT Trcic retire irc c iii iit itis iiiiiiii, 


coe Te teny (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED 


THIS SOFTWARE eS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH ants i AND a's THE 
INCLUSION OF THe ABOVE Spit ho NOTICE. THIS SOFT OR OTHER 
COPIES THEREOF = NOT BE PROVIDED OR OTHERWISE MADE. AVAILABLE TO ANY 
face” TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
eeponatitn NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


> 


eRe eee REAR AA RAEAAEAAAA EEA REAR AAA AAA AREA AAA AERA 


This is the common require file for any module written 
in BLISS 


i ENVIRONMENT: 


VAX/VMS operating system. 


i MODIFIED BY: 


v03-001 MHB0127 Mark Bramhall 5-Apr-1984 
Added the MOVE_QUAD macro. 
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Sz 


; Equated symbols 
LITERAL 
true = 1, ' boolean true 
false = 0, ' boolean false 
ok = 1, ' success return code 
error = : ! error return code 
quad = 8; ! quadword ei lecetien definition 


Define structure type for VMS structures 
STRUCTURE 
bblock Co, p, $s. e; nj) = 

n 

(bblock+o)<p,s,e>; 


MACRO 
move_quad (src, dst) = ! Move a quadword 


(dst)+0 = ofere ret $533 
(dst)#4 = .(src)<30, 32> 
END; 


MACRO 


descriptor () = ! Generate a static string descriptor 
UPLIT CECHARCOUNT (ZSTRING CHRERAIN ING) ) 
UPLIT BYTE (ZSTRING (REMAINING) 5 %; 
MACRO 
own_desciptor [] = ! Generate the actual static string descriptor 
“BBLOC “P83 INITIAL CECHARCOUNT (ESTRING G(ZREMAINING) ) 
PLIT BYTE (ZSTRING(ZREMAINING))) &; 
MACRO 
return_if_error(command) = 
BEGIN 
LOCAL 
status; 
status = command; 
4 ws - Status 
RETURN .status; 
ENDZ; 
MACRO 
signal_if_error(command) = 
BEGIN 
LOCAL 
status; 


status = command; 
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IF NOT .status 
THEN 


BEGIN 
SIGNAL (. status); 
— Status; 
ENDZ; 
' 
: Macro to implement a function (f) of the mosagee se yersty Love} that 
; nope the yer loys bever ty ts Levels such that arithmetic compar pions of the 
mapped values f (severity yield a order of precedence that is 
vitvely acceptes e: 


ERROR NAME OLDVAL NEWVAL 


f tPuscess) --> 

FCIN A} Liaateaad --> 
F (WARNING) --> 
FCER ROR) wap 


FCSEVERE_ERROR) 4 ==> 


. 
i] 
. 
' 
. 
‘ 
. 
' 
. 
1 
. 
i] 
. 
' 
. 
] 
. 
i] 
. 
t 
. 
‘ 
. 
' 
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MACRO 
severity. level (status) = 


LOCAL codes a CLONG); 
gcoge csts$v _severity) - (4 * ,code Csts$v_success]) + 3 
MACRO 
cl iServernel te refix 
F ZDEC RneD (Houore Bn i: fel ieeretix? 
ECLA UOTE % hs cliS$prefix; %F1 
MACRO clfspret is x = am Ry ZQUOTE 
he Bo 
a coat _ loop (ZREMAINING)Z, 
ol 1Seeveros} LoopCname]) = 
NAME (¢ [Vieretiz nene)s UNSIGNED (8) 2; 
CRO 
Sentornet. Literal(symbol) = 


IF NOT ape CLARE Cayebol) ZTHEN EXTERNAL LITERAL symbol 
oer etn GTR 1 ZTHEN : ZREMAINING 2FI; 2FI 


s 
EMDR: 
MACRO 
$fab_devidev bit) = ! Access FABSL_DEV bits of FAB block 
SBYTEOFFSET( fabSl dev) 
$B1TPOS111ON (NAME ( dev$v_' edev_bit)),1,0%; 
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| SSHR Jesseaes = a macro which defines facility-specific message codes 
which are based on the system-wide shared message codes. 


SSHR_MESSAGES( mame, code, (msg,severity), ... ) 


where: 


ame’’ is the name of the fog iUlty (e.g., COPY) 

facilit 
red message (e.g., 
severity” is the desired message severity (e.g., 


"code" is gd eervospenets 
‘msg’ is the name of the s 


CRO 
SSHR_MESSAGES( FACILITY_NAME, FACILITY_CODE ) = 
SHRSMSG_IDS( FACILITY_NAME, FACILITY_CODE, Z%REMAINING ); %, 


SHRSMSG_IDS( FACILITY NAME, FACILITY CODE) C VALUE J = 
SHRSMSG_CALC( FACILITY_NAME, FACTLITY_CODE, TREMOVE (VALUE) ) %, 


SHRSMSG cate Bi NAME paet TTY CODE, MSG_ID, SEVERITY 


ZNARE (F NAME,'$ ° MSG_ID) 
SIF "BBECLARED Cine ‘STS 
ZELSE SEVERITY XFI7%: 


EVERI 


8 
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y code 0-6-4 102) 
te & @ 


d= 
= ANAME (* SARS_ * ,MSG_ 1D) + FACILITY -CODE*65536 + 
SEVERITY 
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